home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VSCOLOR.S
< prev
next >
Wrap
Text File
|
1993-03-16
|
1KB
|
42 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;* Set color representation (set rgb values).
;*------------------------------------------------------------------------
globl _vs_color
_vs_color:
; .cargs #8,handle.w,index.w,rgb.l
handle = 8
index = 10
rgb = 12
link a6,#0
move.l rgb(a6),a0 ;* Since the rgb values and the
move.w 4(a0),-(sp) ;* index are supposed to be in the
move.w 2(a0),-(sp) ;* intin array, we have to copy the
move.w (a0),-(sp) ;* rgb from the user array to the
move.w index(a6),-(sp) ;* stack, then put the index on the
move.l sp,a0 ;* front. Save a pointer to intin.
; VContrl #14,,,#4
move.w handle(a6),-(sp) ; contrl[6]
clr.l -(sp) ; contrl[5,4]
move.w #4,-(sp) ; contrl[3]
subq.l #2,sp ; contrl[2]
clr.w -(sp) ; contrl[1]
move.w #14,-(sp) ; contrl[0]
lea -12(sp),sp ;* -> ptsout, intout, ptsin
move.l a0,-(sp) ;* -> intin
pea 16(sp) ;* -> contrl
jmp vdicall
end